home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol220 / toxic.arc / ASCII.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  129 b   |  7 lines
  1. 10  CLS
  2. 15  G$=INKEY$
  3. 20  IF G$=""  THEN 15
  4. 30  IF LEN(G$)=1  THEN PRINT G$,ASC(G$):GOTO 50
  5. 40  G$=RIGHT$(G$,1):F$=LEFT$(G$,1):PRINT  ASC(F$);ASC(G$)
  6. 50  GOTO 15
  7.